(with_echo_area_buffer): Bind inhibit-modification-hooks

to t in addition to read-only.

diff --git a/src/xdisp.c b/src/xdisp.c
index 85d58dbd7fe74715d5168b06ee9ce21fe15d84f1..c0659ed26ff835d784a3ae1aa73fd1f97015d25e 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -6262,6 +6262,7 @@ with_echo_area_buffer (w, which, fn, a1, a2, a3, a4)
   current_buffer->undo_list = Qt;
   current_buffer->read_only = Qnil;
   specbind (Qinhibit_read_only, Qt);
+  specbind (Qinhibit_modification_hooks, Qt);
 
   if (clear_buffer_p && Z > BEG)
     del_range (BEG, Z);